function PlotCrack%(x,y,r,haxes)

ClearFigure('crack');

if nargin==0
    GetCommonData
    for iCrack=1:nCrack
        CurrCrack=Crack(iCrack);
        xCrack=CurrCrack.x;
        yCrack=CurrCrack.y;
        r=CurrCrack.r;
        
        plot(xCrack,yCrack,'k','LineWidth',2,'tag','crack')
        
        t=(0:0.1:2*pi)';
        xc=r*cos(t);
        yc=r*sin(t);
        x1=[xCrack(1)+xc,xCrack(end)+xc];
        y1=[yCrack(1)+yc,yCrack(end)+yc];
        plot(x1,y1,'r:','tag','crack')
    end
else
end
drawnow